home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUICtrlCreateTabItem.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.4 KB  |  43 lines
  1. #include <GUIConstants.au3>
  2. GUICreate("My GUI Tab",250,150); will create a dialog box that when displayed is centered
  3.  
  4. GUISetBkColor(0x00E0FFFF)
  5. GUISetFont(9, 300)
  6.  
  7. $tab=GUICtrlCreateTab (10,10, 200,100)
  8.  
  9. $tab0=GUICtrlCreateTabitem ("tab0")
  10. GUICtrlCreateLabel ("label0", 30,80,50,20)
  11. $tab0OK=GUICtrlCreateButton ("OK0", 20,50,50,20)
  12. $tab0input=GUICtrlCreateInput ("default", 80,50,70,20)
  13.  
  14. $tab1=GUICtrlCreateTabitem ( "tab----1")
  15. GUICtrlCreateLabel ("label1", 30,80,50,20)
  16. $tab1combo=GUICtrlCreateCombo ("", 20,50,60,120)
  17. GUICtrlSetData(-1,"Trids|CyberSlug|Larry|Jon|Tylo", "Jon"); default Jon
  18. $tab1OK=GUICtrlCreateButton ("OK1", 80,50,50,20)
  19.  
  20. $tab2=GUICtrlCreateTabitem ("tab2")
  21. GUICtrlSetState(-1,$GUI_SHOW); will be display first
  22. GUICtrlCreateLabel ("label2", 30,80,50,20)
  23. $tab2OK=GUICtrlCreateButton ("OK2", 140,50,50)
  24.  
  25. GUICtrlCreateTabitem (""); end tabitem definition
  26.  
  27. GUICtrlCreateLabel ("Click on tab and see the title", 20,130,250,20)
  28.  
  29. GUISetState ()
  30.  
  31. ; Run the GUI until the dialog is closed
  32. While 1
  33.     $msg = GUIGetMsg()
  34.  
  35.     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  36.     if $msg = $tab then
  37.         ; display the clicked tab
  38.         if GUICtrlread ($tab) = 0 then WinSetTitle("My GUI Tab","","My GUI Tab0")
  39.         if GUICtrlread ($tab) = 1 then WinSetTitle("My GUI Tab","","My GUI Tab1")
  40.         if GUICtrlread ($tab) = 2 then WinSetTitle("My GUI Tab","","My GUI Tab2")
  41.     EndIf
  42. Wend
  43.